home *** CD-ROM | disk | FTP | other *** search
/ Workbench Designer 2 / Workbench Designer 2.iso / blanker / addemo / install1 / install adash < prev    next >
Encoding:
Text File  |  1992-09-02  |  12.4 KB  |  366 lines
  1. ; Script to install ADash Demo Version
  2. ; Last Modified 5/6/96
  3. ; ©1993-6 Robert W. Vreeland Jr.
  4. ; All Rights Reserved
  5.  
  6. (complete 1)
  7.  
  8. (set vernum (getversion "exec.library" (resident)))
  9.  
  10. (set ver (/ vernum 65536))
  11.  
  12. (set aginrom (> ver 38))
  13.  
  14. (if (< ver 37) (message "\nADash requires V2.04 or higher Kickstart and WorkBench.  It can "
  15.                         "not be installed on this computer."))
  16.  
  17. (if (< ver 37) (exit (quiet)))
  18.  
  19. (set cpu (database ("cpu")))      ;Figure out which cpu we are running under
  20.                                   ;and set name accordingly
  21. (set name "Install1:ADash.20")    ;Default to 68020 and higher version
  22.  
  23. (if (= "68000" cpu) 
  24.     (set name "Install1:ADash")
  25. )
  26.  
  27. (if (= "68010" cpu)
  28.     (set name "Install1:ADash")
  29. )
  30.  
  31. (set adanswer (askchoice (prompt "\nWould you like to install the main ADash program in your "
  32.                                  "Sys:WBStartup directory so that it is run when you boot your "
  33.                                  "Amiga?")
  34.                           (choices "Yes" "No")
  35.                           (default 0)
  36.                           (help "\nYou will also have the option of installing the main ADash program "
  37.                                 "in the same directory as the rest of the files in the package.")
  38.                )
  39. )
  40.  
  41.                                ;Copy ADash to Sys:WBStartup if desired
  42. (if (= adanswer 0) ((copyfiles (source name)
  43.                                (dest "Sys:WBStartup")
  44.                                (optional "nofail")
  45.                                (infos)
  46.                     )
  47.                     (tooltype (dest (tackon "Sys:WBStartup" name))
  48.                               (noposition)
  49.                    ))
  50. )
  51.  
  52. (complete 2)
  53.  
  54. (set adpanswer (askchoice (prompt "\nWould you like to install ADashPrefs in your Prefs: directory?")
  55.                           (choices "Yes" "No")
  56.                           (default 0)
  57.                           (help "\nADashPrefs is used to control most of ADash's settings.  If you do not "
  58.                                 "install ADashPrefs, you will also have the option of installing it in the same "
  59.                                 "directory as the rest of the files in the package.")
  60.                )
  61. )
  62.  
  63.                                   ;Copy ADashPrefs          
  64. (if (= adpanswer 0) ((copyfiles (source "Install1:ADashPrefs")
  65.                                 (dest "Sys:Prefs")
  66.                                 (optional "nofail")
  67.                                 (infos)
  68.                      )
  69.                      (tooltype (dest "Sys:Prefs/ADashPrefs")
  70.                                (noposition)
  71.                     ))
  72. )
  73.  
  74. (complete 4)
  75.  
  76. (set panswer (askchoice (prompt "\nWould you like to install the default preferences file?")
  77.                         (choices "Yes" "No")
  78.                         (default 0)
  79.                         (help "\nIf you do not install the default preferences, you will want "
  80.                               "to run ADashPrefs (located in your preferences directory) "
  81.                               "to create a file before using ADash.  The default "
  82.                               "preferences file will add in the blanker modules for you "
  83.                               "but leave most of ADash's other settings at their defaults.")
  84.              )
  85. )
  86.  
  87.                                   ;Copy default preferences if desired
  88. (if (= panswer 0) (
  89.     (copyfiles (source "Install1:ADash.Prefs")
  90.                (dest "ENV:")
  91.                (optional "nofail"))
  92.     (copyfiles (source "Install1:ADash.Prefs")
  93.                (dest "ENVARC:")
  94.                (optional "nofail"))
  95.   )
  96. )
  97.  
  98. (complete 6)
  99.  
  100. (set tmain (askdir (prompt "\nSelect the location to install the ADash package...ADash will create "
  101.                            "an ADash directory to contain the files.")
  102.                    (help "\nChoose a destination partition or directory to contain "
  103.                          "the various files that ADash needs to run as well as copies of the main "
  104.                          "ADash program and ADashPrefs if desired.")
  105.                    (newpath)
  106.                    (default "Work:")
  107.            )
  108. )
  109.  
  110. (set amain (tackon tmain "ADash"))
  111.  
  112. (if (NOT (exists amain))           ;Create directory if necessary
  113.    (makedir amain (infos))
  114. )
  115.  
  116. (set parts (askoptions (prompt "\nPlease choose the items you would like installed")
  117.                        (choices "ADash"
  118.                                 "ADashPrefs"
  119.                                 "Blankers"
  120.                                 "SpeedIcons"
  121.                                 "Sounds"
  122.                                 "Images"
  123.                                 "DataTypes"
  124.                                 "Fonts"
  125.                                 "Amigaguide Help"
  126.                                 "Amigaguide.library"
  127.                                 "Developer Materials")
  128.                        (help "\nYou may choose to install only parts of the ADash package.  "
  129.                              "If you do not install all parts, you may not be able to use "
  130.                              "certain features.  You can choose to install those parts "
  131.                              "later by rerunning this installer and selecting the new "
  132.                              "parts at this point.  The parts you can choose to install"
  133.                              "are:\n\n"
  134.  
  135.                              "ADash:  This is the main ADash program.\n\n"
  136.                              "ADashPrefs:  This is the preference program which controls "
  137.                              "most of ADash's settings.\n\n"
  138.                              "Blankers:  These are the blanker modules used when the "
  139.                              "screen is blanked.\n\n"
  140.                              "SpeedIcons:  These are IFF icons that may be used in the "
  141.                              "Dock portion of the ADash window.\n\n"
  142.                              "Sounds:  These are IFF 8SVX soundfiles are used by certain "
  143.                              "blanker modules and may be used for the sound played when "
  144.                              "the alarm clock or timer sound.\n\n"
  145.                              "Images:  These are images datatypes for use with the Display "
  146.                              "blanker module.\n\n"
  147.                              "Datatypes:  These are datatypes used by the Display blanker "
  148.                              "module.  They will only be installed if you have Kickstart "
  149.                              "V3.0 or higher.\n\n"
  150.                              "Fonts:  This is a special 'digital' font used by ADash's "
  151.                              "numeric displays.\n\n"
  152.                              "Amigaguide help:  This is the main document for ADash which "
  153.                              "is also used for the online help.\n\n"
  154.                              "Amigaguide.library:  This library is used for the amigaguide "
  155.                              "help.  You will not need to install it under WB3.0 or higher. "
  156.                              "It will only be installed if you do not already have it in "
  157.                              "your LIBS: directory or if the version you have is an older "
  158.                              "one.\n\n"
  159.                              "Developer Materials:  This is information on developing "
  160.                              "Blanker Modules for ADash.")
  161.            )
  162. )
  163.  
  164. ;Copy ADash again if desired
  165. (if (IN parts 0) (copyfiles (source name)
  166.                             (dest amain)
  167.                             (optional "nofail")
  168.                             (infos)
  169.                  )
  170. )
  171.  
  172. (complete 8)
  173.  
  174. (copyfiles (source "Install1:WB-Launcher")
  175.            (dest "L:")
  176.            (optional "nofail")
  177. )
  178.  
  179. (copyfiles (source "Install1:WB-Launcher")
  180.            (dest amain)
  181.            (optional "nofail")
  182. )
  183.                                                ;Copy ADashPrefs again if desired
  184. (if (IN parts 1) (copyfiles (source "Install1:ADashPrefs")
  185.                             (dest amain)
  186.                             (optional "nofail")
  187.                             (infos)
  188.                  )
  189. )
  190.  
  191. (complete 10)
  192.  
  193. (set fontdest (tackon amain "Fonts"))
  194.  
  195.                                   ;Install Digital font if desired
  196. (if (IN parts 7) (
  197.    (if (NOT (exists fontdest))
  198.       (makedir fontdest ))
  199.    (copyfiles (source "Install1:Fonts")
  200.           (dest fontdest)
  201.           (optional "nofail")
  202.           (all)
  203.    ))
  204. )
  205.  
  206. (complete 11)
  207.  
  208.                                   ;Install amigaguide.library and doc if desired
  209. (if (AND (IN parts 9) (= aginrom 0)) 
  210.    (copylib (source "Install1:amigaguide.library")
  211.             (dest "Libs:")
  212.             (optional "nofail")
  213.    )
  214. )
  215.  
  216. (complete 15)
  217.  
  218. (if (IN parts 8)
  219.    (copyfiles (source "Install1:ADash.guide")
  220.               (dest amain)
  221.               (optional "nofail")
  222.               (infos))
  223. )
  224.  
  225. (complete 18)
  226.  
  227. (copyfiles (source "Install1:Remove ADash")
  228.            (dest amain)
  229.            (optional "nofail")
  230.            (infos)
  231. )
  232.  
  233. (set sidest (tackon amain "SpeedIcons"))
  234.  
  235.                                   ;Install SpeedIcons if desired
  236. (if (IN parts 3) (
  237.    (if (NOT (exists sidest))
  238.       (makedir sidest (infos))
  239.    )
  240.    (copyfiles (source "Install1:SpeedIcons")
  241.               (dest sidest)
  242.               (all)
  243.               (optional "nofail")
  244.    ))
  245. )     
  246.  
  247. (complete 23)
  248.  
  249. (set snddest (tackon amain "Sounds"))
  250.  
  251.                                   ;Install 8SVX sounds if desired
  252. (if (IN parts 4) (
  253.    (if (NOT (exists snddest))
  254.       (makedir snddest (infos)))
  255.    (copyfiles (source "Install1:Sounds")
  256.               (dest snddest)
  257.               (all)
  258.               (optional "nofail")
  259.    ))
  260. )
  261.  
  262. (copyfiles (source "Install1:Readme.demo")
  263.            (dest amain)
  264.            (optional "nofail")
  265.            (infos)
  266. )
  267.  
  268. (complete 32)
  269.             
  270. (set blankerdest (tackon amain "Blankers"))
  271.  
  272.                                    ;Install blanker mods if desired
  273. (if (IN parts 2) (
  274.    (if (NOT (exists blankerdest))
  275.          (makedir blankerdest (infos))
  276.    )
  277.    (copyfiles (source "Install2:Blankers")
  278.               (dest blankerdest)
  279.               (all)
  280.               (optional "nofail")
  281.     ))
  282. )
  283.  
  284. (complete 59)
  285.  
  286.                                   ;Install datatypes if desired
  287. (if (AND (IN parts 6) (= aginrom 1)) (
  288.    (copyfiles (source "Install2:Datatypes/JPEG.datatype")
  289.               (dest "SYS:classes/datatypes")
  290.               (optional "nofail")
  291.    )
  292.    (copyfiles (source "Install2:Datatypes/JPEG")
  293.               (dest "DEVS:Datatypes")
  294.               (optional "nofail")
  295.    )
  296.    (copyfiles (source "Install2:Datatypes/bmp.datatype")
  297.               (dest "SYS:classes/datatypes")
  298.               (optional "nofail")
  299.    )
  300.    (copyfiles (source "Install2:Datatypes/Windows BMP")
  301.               (dest "DEVS:Datatypes")
  302.               (optional "nofail")
  303.    )
  304.    (copyfiles (source "Install2:Datatypes/macpaint.datatype")
  305.               (dest "SYS:classes/datatypes")
  306.               (optional "nofail")
  307.    )
  308.    (copyfiles (source "Install2:Datatypes/MacPaint")
  309.               (dest "DEVS:Datatypes")
  310.               (optional "nofail")
  311.    )
  312.    (copyfiles (source "Install2:Datatypes/sun.datatype")
  313.               (dest "SYS:classes/datatypes")
  314.               (optional "nofail")
  315.    )
  316.    (copyfiles (source "Install2:Datatypes/Sun Raster")
  317.               (dest "DEVS:Datatypes")
  318.               (optional "nofail")
  319.    )
  320.    (copyfiles (source "Install2:Datatypes/PCX.datatype")
  321.               (dest "SYS:classes/datatypes")
  322.               (optional "nofail")
  323.    )
  324.    (copyfiles (source "Install2:Datatypes/PCX")
  325.               (dest "DEVS:Datatypes")
  326.               (infos)
  327.               (optional "nofail")))
  328. )
  329.  
  330. (complete 62)
  331.  
  332.  
  333. (complete 73)
  334.  
  335. (set imgdest (tackon amain "Images"))
  336.  
  337.                                   ;Install images if desired
  338. (if (IN parts 5) (
  339.    (if (NOT (exists imgdest))
  340.       (makedir imgdest (infos)))
  341.    (copyfiles (source "Install3:Images")
  342.               (dest imgdest)
  343.               (all)
  344.               (optional "nofail")
  345.    ))
  346. )
  347.  
  348. (complete 99)
  349.                                   ;Create assign if desired
  350. (startup "ADash" (prompt "\nDo you wish to add the ADASH: assign to your "
  351.                           "user startup script?")
  352.                  (help "\nThe ADASH: assign is used by ADash to locate its "
  353.                        "various components.  If you do not add this assign to "
  354.                        "your startup script, you may have to tell ADash where to "
  355.                        "find the files it needs.")
  356.                  (command ("Assign ADash: %s\n" amain))
  357.                  (command ("Assign Fonts: %s add" fontdest))                 
  358. )
  359.  
  360. (makeassign "ADash" amain)
  361.  
  362. (set @default-dest amain)
  363.  
  364. (run ("run sys:utilities/more ADash:Readme.Demo"))
  365.  
  366. (complete 100)